unit uInNomineSongs;

interface

uses
  SysUtils,
  uInNomineSystem;

function GetAllSongs: TSongs;

implementation

function GetAllSongs: TSongs;
var
  i, j, l: integer;
begin
  l := 0;
  for i := 0 to NUMBER_OF_SONGS - 1 do
    for j := 0 to Ord(celestial) do
    begin
      Result[l] := TSong.Create;
      Result[l].description := SONGS_NAMES[i];
      Result[l].realm := TRealm(j);
      Inc(l);
    end;
end;

end.
